home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00107_Intro screen buttons.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  776 b   |  44 lines
  1. property pSpr, pRollMember, pOrigMember, pDestination
  2.  
  3. on beginSprite me
  4.   pSpr = sprite(me.spriteNum)
  5.   pOrigMember = pSpr.member
  6.   pRollMember = nextMember(pOrigMember)
  7.   setCursor(pSpr, pointingHand())
  8. end
  9.  
  10. on endSprite
  11.   setCursor(pSpr, defaultCursor())
  12. end
  13.  
  14. on mouseEnter me
  15.   pSpr.member = pRollMember
  16. end
  17.  
  18. on mouseLeave me
  19.   pSpr.member = pOrigMember
  20. end
  21.  
  22. on mouseUp
  23.   pSpr.member = pOrigMember
  24.   waitCursor()
  25.   if pDestination = "Help" then
  26.     play frame pDestination
  27.   else
  28.     if marker(0) = label("Help") then
  29.       resetCursor()
  30.       play done
  31.     else
  32.       go(pDestination)
  33.     end if
  34.   end if
  35. end
  36.  
  37. on mouseDown me
  38.   clickSound()
  39. end
  40.  
  41. on getPropertyDescriptionList me
  42.   return [#pDestination: [#comment: "destination", #format: #marker, #default: "Main"]]
  43. end
  44.